Public Class CLocation
    Private _intLocID As Integer
    Private _strLocName As String
    Private _strType As String
    Private _strLocShelf As String
    Private _intLocRow As Integer
    Private _intLocColn As Integer
    Private _strLocDescp As String

    Public Property LocID() As Integer
        Get
            Return _intLocID
        End Get
        Set(ByVal value As Integer)
            _intLocID = value
        End Set
    End Property
    Public Property LocType() As String
        Get
            Return _strType
        End Get
        Set(ByVal value As String)
            _strType = value
        End Set
    End Property

    Public Property LocName() As String
        Get
            Return _strLocName
        End Get
        Set(ByVal value As String)
            _strLocName = value
        End Set
    End Property

    Public Property LocShelf() As String
        Get
            Return _strLocShelf
        End Get
        Set(ByVal value As String)
            _strLocShelf = value
        End Set
    End Property

    Public Property LocRow() As Integer
        Get
            Return _intLocRow
        End Get
        Set(ByVal value As Integer)
            _intLocRow = value
        End Set
    End Property

    Public Property LocColn() As Integer
        Get
            Return _intLocColn
        End Get
        Set(ByVal value As Integer)
            _intLocColn = value
        End Set
    End Property

    Public Property LocDescrp() As String
        Get
            Return _strLocDescp
        End Get
        Set(ByVal value As String)
            _strLocDescp = value
        End Set
    End Property
End Class
